home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
biz
/
dopus
/
DOpusPatch6265.lha
/
pch565
/
Opus_Patch562-565
< prev
next >
Wrap
Text File
|
1997-08-28
|
4KB
|
206 lines
; Opus_Patch562-565
; Installer script to update Directory Opus Magellan version 5.62 to 5.65
;
; Directory Opus Update Version $VER: Opus_Patch562-565 (26.08.97)
; COPYRIGHT ©1997 GP SOFTWARE, AUSTRALIA
(complete 0)
(procedure clear_assigns
(makeassign "DOPNEW")
(makeassign "PCH")
(makeassign "DOPOLD")
)
(procedure signal_opus
(set #Sigs (tackon #SRC "dopusmsg"))
(if (exists #Sigs (noreq))
(run (cat #Sigs " DOPUS.1 \"command set notify off\""))
)
)
(procedure make_newfiles ; (#EXT) requires #EXT to be set before call
(working "Updating modules/configopus.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/configopus.module -pPCH:configopus."#EXT" DOPOLD:modules/configopus.module"))
(working "Updating modules/icon.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/icon.module -pPCH:icon."#EXT" DOPOLD:modules/icon.module"))
(working "Updating modules/filetype.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/filetype.module -pPCH:filetype."#EXT" DOPOLD:modules/filetype.module"))
(working "Updating libs/dopus5.library")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:libs/dopus5.library -pPCH:dopuslib."#EXT" DOPOLD:libs/dopus5.library"))
(working "Updating DirectoryOpus")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:DirectoryOpus -pPCH:dopus."#EXT" DOPOLD:DirectoryOpus"))
)
(procedure wrong_version
(message #Title_msg
"Sorry, you have the wrong version of DirectoryOpus.\n\n"
"This upgrade will NOT WORK for your version.\n"
#README
"Your Opus version is "#dop_ver"."#dop_rev".\n"
"and the library is "#lib_ver"."#lib_rev"\n")
(exit "Installation terminated!")
)
(procedure anyone_home
(message #Title_msg
"Sorry, cannot find DirectoryOpus on you system!\n\n"
#README)
(exit "Installation terminated!")
)
(procedure wrong_dopus
(message #Title_msg
"Sorry, you have the wrong version of DirectoryOpus.\n\n"
"This upgrade will NOT WORK for your version.\n\n"
#README
"Your Opus version is "#dop_ver"."#dop_rev".\n")
(exit "Instalation terminated!")
)
(procedure get_ext
; work out which library version, should be enough
;
(set #lib_ver 0)
(if (exists #DOPUSLIB (noreq))
(
(set #Vernum (getversion #DOPUSLIB))
(set #lib_ver (/ #Vernum 65536))
(set #lib_rev (- #Vernum (* #lib_ver 65536) ) )
(if (AND (= #lib_ver 62 ) (= #lib_rev 0 ))
(
(set #EXT "pch65")
(set #PATCHNAME "Opus6265Patch.lha")
)
)
)
(anyone_home)
)
(if (= #lib_ver 0)
(wrong_version)
)
)
;
; start
;
(
(onerror clear_assigns)
(set #OLD_OPUS "DOpus5:")
(set #FINAL "DOpus5:")
(set @default-dest #FINAL)
(set #NEW_OPUS "ram:OP565")
(set #PCH_TMP "ram:OPPCHTMP")
(set #SRC "ram:PCH565")
(set #WANTVER 62)
(set #DOPUSPROG (tackon #OLD_OPUS "DirectoryOpus"))
(set #DOPUSLIB (tackon #OLD_OPUS "libs/dopus5.library"))
(set #README "Please read the ReadMe acompanying this archive or contact GPSoftware for details of upgrades\n\n")
(clear_assigns)
(signal_opus)
(makeassign "DOPOLD" #OLD_OPUS)
(makedir #NEW_OPUS)
(makeassign "DOPNEW" #NEW_OPUS)
(makedir "DOPNEW:modules")
(makedir "DOPNEW:c")
(makedir "DOPNEW:help")
(makedir "DOPNEW:libs")
(makedir #PCH_TMP)
(makeassign "PCH" #PCH_TMP)
; main procedure
(set #Title_msg "Directory Opus Magellan Update Patch.\n\n")
(message #Title_msg
"This procedure will update your existing version of"
" Directory Opus Magellan 5.62 to version 5.65.\n\n"
"When finished, you will need to reboot your Amiga."
)
(if (exists #DOPUSPROG (noreq))
(
(set #Vernum (getversion #DOPUSPROG))
(set #Dop_ver (/ #Vernum 65536))
(set #Dop_rev (- #Vernum (* #Dop_ver 65536) ) )
);else
(anyone_home)
)
(if (AND (= #dop_ver 5 ) (= #dop_rev #WANTVER ))
(get_ext)
(wrong_dopus) ;else
)
(if (exists (tackon #SRC #PATCHNAME))
(
(working "Unarchiving patch files...")
(run (cat (tackon #SRC "lhex") " >NIL: <NIL: -qfw=PCH: x " (tackon #SRC #PATCHNAME)))
(make_newfiles)
(copyfiles (source "DOPNEW:") (dest #FINAL) (all) (optional force))
(copyfiles (source (tackon #SRC "ReadMe_Magellan565")) (dest #FINAL) (infos))
;
; tidyup
;
(clear_assigns)
(run (cat "C:Delete " #PCH_TMP " all"))
(run (cat "C:Delete " #NEW_OPUS " all"))
); else
(message #Title_msg
"Woops! Cannot find the patch archive\n"
"Required archive: "#PATCHNAME".\n\n"
)
)
(clear_assigns)
)